home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib2 / v_02_09 / 2n09070a < prev    next >
Encoding:
Text File  |  1995-11-01  |  354 b   |  20 lines
  1. // SAMPLE45.L - DDE Server for Excel Hotlinks.
  2.  
  3. main
  4. {
  5.     services ["test"] = sv = new service;
  6.     sv ["date"] = "N/A!";
  7.     window ();
  8.     w.menu = new menu << new menuitem ("&Excel!");
  9. }
  10.  
  11. excel {spawn ("Excel");}
  12.  
  13. paint {w << "Click to update date...\nDate: " << sv ["date"];}
  14.  
  15. click
  16. {
  17.     sv ["date"] = ctime ();
  18.     w.refresh;
  19. }
  20.